home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / PIXBT.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  17 lines
  1. 1 PRINT"[147]"
  2. 5 IFA=1THEN45
  3. 6 INPUT"NAME";A$
  4. 10 POKE53272,PEEK(53272)OR8
  5. 30 POKE53265,PEEK(53265)OR32
  6. 40 IFA=0THENA=1:LOADA$,8,1
  7. 45 POKE53280,0
  8. 50 GETA$:IFA$=""THEN50
  9. 52 POKE53272,PEEK(53272)AND247
  10. 54 POKE53265,PEEK(53265)AND223
  11. 60 PRINT"[147]HIT 'R' TO RETURN TO PICTURE"
  12. 70 PRINT"HIT 'G' TO GET ANOTHER PICTURE"
  13. 80 GETA$:IFA$=""THEN80
  14. 90 IFA$="G"THENA=0:GOTO1
  15. 100 IFA$><"R"THEN80
  16. 110 PRINT"[147]":GOTO10
  17.